home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-11-11 | 981 b | 53 lines | [TEXT/CWIE] |
- // CCMArea version 1.3
- // 11-11-97
- // by David Catmull
-
- /* History:
-
- 10-16-97 First version
-
- 10-21-97 Removed Click and AdjustCursorSelf
-
- 10-22-97 Added check for winAttr_Regular
-
- 11-11-97 Updated to use UCMArea::GetCmdStringID
- */
-
- #include "CCMDialogBox.h"
- #include "CCMWindow.h"
- #include <Appearance.h>
-
- CCMDialogBox::CCMDialogBox(LStream *inStream)
- : LDialogBox(inStream)
- {
- }
-
- void
- CCMDialogBox::ClickSelf(const SMouseDownEvent &inMouseDown)
- {
- CMClick(inMouseDown);
- }
-
- void
- CCMDialogBox::BuildMenuSelf(MenuHandle inMenu)
- {
- if (HasAttribute(windAttr_Regular)) {
- Boolean enabled,usesMark;
- Char16 mark;
- Str255 name;
-
- LCommander::GetTarget()->ProcessCommandStatus(cmd_Close,enabled,usesMark,mark,name);
-
- if (enabled) {
- Str255 closeString;
- short item;
-
- ::GetIndString(closeString,UCMArea::GetCmdStringID(),1);
-
- ::AppendMenu(inMenu,closeString);
- item = ::CountMenuItems(inMenu);
- ::SetMenuItemCommandID(inMenu,item,cmd_Close);
- }
- }
- }
-